﻿Imports System
Imports System.Data
Imports System.Data.SqlClient

    '/ <summary>
    '/ The SQLDataAccessLayer contains the data access layer for Microsoft SQL Server. 
    '/ This class implements the abstract methods in the DataAccessLayerBaseClass class.
    '/ </summary>
    Public Class SqlDataAccessLayer
        Inherits DataAccessLayerBaseClass

        ' Provide class constructors
        Public Sub New()
        End Sub

        Public Sub New(ByVal connectionString As String)
            Me.ConnectionString = connectionString
        End Sub

        ' DataAccessLayerBaseClass Members
    Public Overrides Function GetDataProviderConnection() As IDbConnection
        Return New SqlConnection()
    End Function

    Public Overrides Function GeDataProviderCommand() As IDbCommand
        Return New SqlCommand()
    End Function

    Public Overrides Function GetDataProviderDataAdapter() As IDbDataAdapter
        Return New SqlDataAdapter()
    End Function

    End Class
